home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 10
/
FM Towns Free Software Collection 10.iso
/
tos_updt
/
fmcity
/
palcom
/
esc
/
escdosv.def
next >
Wrap
Text File
|
1995-04-04
|
1KB
|
41 lines
ESCDEF DOS/V
;----------------------------------------------------------------------
;
; ESCファンクション定義(DOS/V用)
; COPYRIGHT (C) 1993 FUJITSU/HORIANT
;
;----------------------------------------------------------------------
;
; ESCシーケンス定義
;
;----------------------------------------------------------------------
\e[\d\;\d\{Hf\} LOCATE %2,%1
\e[A QLOCATE $X,$Y : LOCATE %X,%Y-1
\e[B QLOCATE $X,$Y : LOCATE %X,%Y+1
\e[C QLOCATE $X,$Y : LOCATE %X+1,%Y
\e[D QLOCATE $X,$Y : LOCATE %X-1,%Y
\e[0A QLOCATE $X,$Y : LOCATE %X,%Y-1
\e[0B QLOCATE $X,$Y : LOCATE %X,%Y+1
\e[0C QLOCATE $X,$Y : LOCATE %X+1,%Y
\e[0D QLOCATE $X,$Y : LOCATE %X-1,%Y
\e[\dA QLOCATE $X,$Y : LOCATE %X,%Y-%1
\e[\dB QLOCATE $X,$Y : LOCATE %X,%Y+%1
\e[\dC QLOCATE $X,$Y : LOCATE %X+%1,%Y
\e[\dD QLOCATE $X,$Y : LOCATE %X-%1,%Y
\e[6n NOP
\e[s QLOCATE $H,$V
\e[u LOCATE %H,%V
\e[2J CLS
\e[K QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX %A,%B,%C,%B
\e[=\D\{hl\} NOP
\e[m COLOR 7
\e[\s\[\D\;\]m COLOR 7 : ANSICOLOR %1
;----------------------------------------------------------------------
;
; 1バイトコード定義(優先度を下げないと一致する可能性大)
;
;----------------------------------------------------------------------
\x07 BEEP
\i\eINIT_DOSV1 LET $H,1 : LET $V,1
\i\eINIT_DOSV2 QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX 1,%B+1,%C,%D : CLSBOX %A,%B,%C,%B